home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
listings
/
blxv1
/
technix.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-21
|
343b
|
18 lines
program FileDemo;
const
FileName = 'TEST.TXT';
var
FileVar : Text;
InString : String;
begin
Assign(FileVar,FileName);
Rewrite(FileVar);
WriteLn(FileVar,'Write this to a file');
Close(FileVar);
Assign(FileVar,FileName);
Reset(FileVar);
Readln(FileVar,InString);
Close(FileVar);
WriteLn(InString);
end.